home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / System / CGX3upd / CGXV3_Update < prev    next >
Encoding:
Text File  |  1998-03-01  |  19.9 KB  |  410 lines
  1. ;*****************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /      Update        / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /  V3
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; 3D Labs Inc. : CyberVisionPPC
  11. ; S3           : CyberVision64/3D, CyberVision64
  12. ; Cirrus Logic : Picasso II(+), Picasso IV, Spectrum, Piccolo, Piccolo SD64, Inferno
  13. ; CBM Chip Sets: Advanced Graphics Architecture - AGA
  14. ; Symbios (NCR): Retina BLT Z3
  15. ; Texas Inst.  : A2410 
  16. ;          
  17. ; CyberGraphX V3 ßETA Update Installer ©1995,1996,1997,1998 by Robert C. Reiswig 
  18. ; $VER: V0.69e (January-20-1998)
  19. ; 
  20. ; If you wish to use any part of this installer you must ask. May not be 
  21. ; integrated/placed into any other package! You may NOT change this in an way!
  22. ; You man NOT take or use the ENV definitions and use them without direct
  23. ; permission from me! Changes, suggestions or problems: robr@phase5.de or vgr@best.com
  24. ;********************************************************************************
  25.  
  26.  
  27.  
  28. ;********************************************************************************
  29. ; Cyber Release & Boards
  30. ;********************************************************************************
  31. (set @user-level 2)
  32. (set #cyberver "V3 41.3")
  33. (set NoBoard 0)
  34. (set whereback "SYS:Storage")
  35. (message (cat "CyberGraphX " #cyberver "\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  36.               "CyberVision64/3D & CyberVision64\n\nPicasso II(+) & Picasso IV & Inferno\n\n"
  37.               "Piccolo & Piccolo SD64 & Spectrum 28/24\n\nA2410 & Retina BLT Z3\n\nAGA (PPC Only)"
  38.          )
  39. )
  40.  
  41. (welcome)
  42. ;********************************************************************************
  43. ; Read All System information
  44. ;********************************************************************************
  45. (set cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  46. (set vblank (database "vblank")) (set graphmem (database "graphics-mem"))
  47. (set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536))
  48. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  49. (set fastmem (- totmem graphmem))
  50. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  51. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  52. ( if (= osver 41) ( (set workbench "3.2")) )))))
  53. (set pick 0)
  54.  
  55. ;********************************************************************************
  56. ;English Strings
  57. ;********************************************************************************
  58. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  59.               "by:\n\nVision Factory Development"         
  60.          )
  61. )
  62. (set #nobackup "\n\nThis installer will copy the correct new V3 Libs and Monitor to the correct places. It will not do any backup currently.\n\nThis will not install V3 for the first time, it just _updates_ a V3 system. A V2->V3 updater is in the works.")
  63. (set #askzorro "\nWhat type of machine is CyberGraphX V3 installed on?\n")
  64. (set #askcpu "\nWhat CPU does the machine have that you are updating CyberGraphX V3 on? The installer has found:\n")
  65. (set #wherelibs "Where are your CyberGraphX V3 libraries located? The default is 'SYS:Libs'")
  66. (set #whatboard (cat "\nPlease Select the Graphics Board you wish to update CyberGraphX Monitor File for:\n"))
  67. (set #todo-prompt "\nDo you wish to install:\n")
  68. (set #cgxmode-todo " CGXMode - Create & Change Screen Modes")
  69. (set #wheremode "Where do you wish to copy the CGXMode Program?")
  70. (set #whereshowcgxconfig "Where do you wish to copy the ShowCGXconfig Program?")
  71. (set #showcgxconfig " ShowCGXconfig - CGX Info Program")
  72. ;*********** NEW English Strings:  Monday 01-Dec-97 *************************
  73. (set #nocgxmode "\n\nOne of the graphic card(s) you selected does not currently support the use of CGXMode.\n\nA2410 or AGA(PPC)\n\nCGXMode can be use with all of the other CyberGraphX supported cards!")
  74. ;*********** NEW English Strings:  Wednesday 21-Jan-98 **********************
  75. (set #updatep4flash "\nTo use CyberGraphX with the Picasso IV you should be running version 2.0 or greater of the Picasso IV FlashROM.\n\nThe installer has found a version lower then 2.0.\n\nFor more information and newer FlashROMs you can contact:\nYour Dealer\nVillage Tronic\nVillage Tronic Web site\n")
  76.  
  77. ;********************************************************************************
  78. ;German Strings by the King!
  79. ;********************************************************************************
  80. (if (= @language "deutsch")
  81. (
  82.  (set #nobackup "\n\nDieses Installationsskript kopiert die neuen V3 Bibliotheken und Monitore in die entsprechenden Verzeichnisse. Es wird keine Sicherung vorgenommen.\n\nEs ist keine V3 Erstinstallation, das V3 System wird nur _erneuert_ . Ein V2->V3 Update ist in Arbeit.")
  83.  (set #askzorro "\nWelche Erweiterungsslots besitzt der Computer, auf dem Sie CyberGraphX V3 installieren ?\n")
  84.  (set #askcpu "\nWelchen Prozessor besitzt der Computer, auf dem Sie CyberGraphX V3 installieren wollen ? Der installer hat folgendes gefunden:\n")
  85.  (set #wherelibs "Wo befinden sich die CyberGraphX V3 Bibliotheken ? Standard ist 'SYS:Libs'")
  86.  (set #whatboard (cat "\nBitte wählen Sie die Grafikkarte, deren CyberGraphX Monitordatei erneuern wollen:\n"))
  87.  (set #todo-prompt "\nWelches der folgenden Programme wollen Sie installieren: ?\n")
  88.  (set #cgxmode-todo " CGXMode - Erstellen & Ändern von Bildschirmmodis")
  89.  (set #wheremode "Wohin wollen Sie das CGXMode Programm kopiert haben?")
  90.  (set #whereshowcgxconfig "Wohin wollen Sie das ShowCGXconfig Programm kopiert haben?")
  91.  (set #showcgxconfig " ShowCGXconfig - CyberGraphX Informationsprogramm")
  92.  ;*********** NEW German Strings:  Monday 01-Dec-97 *************************
  93.  (set #nocgxmode "\n\nEine/Mehrere Grafikkarte(n), die Sie ausgewählt haben, wird/werden von CGXMode momentan nicht unterstützt.\n\nA2410 oder AGA(PPC)\n\nCGXMode kann mit allen anderen Karten, die CyberGraphX unterstützt, jedoch benutzt werden!")
  94.  ;*********** NEW English Strings:  Wednesday 21-Jan-98 **********************
  95.  (set #updatep4flash "\nUm CyberGraphX3 mit der PicassoIV zu benutzen, sollten sie auf jeden Fall die Version 2.0 oder größer des PicassoIV FlashROMs installieren.\n\nDas Installationsskript entdeckte eine ältere Version.\n\nFür weitere Informationen und eine neuere FlashROM Version kontaktieren Sie bitte:\nIhren Händler\nVillageTronic\ndie VillageTronic WWW Seite\n")
  96. )
  97. )
  98.  
  99. ;********************************************************************************
  100. ; French Strings by Gregory Eycken <geycken@geocities.com>
  101. ;********************************************************************************
  102. (if (= @language "français")
  103. (
  104.  (set #nobackup "\n\nCe script d'installation va copier les nouvelles bibliothèques et les nouveaux moniteurs de CyberGraphX V3 aux endroits adéquats. Il n'effectuera aucun archivage.\n\nCe script n'est pas prévu pour installer CyberGraphX V3 pour la première fois, il ne peut faire que la _mise à jour_ d'un système CyberGraphX V3 existant.\nUne mise à jour V2->V3 est à l'étude.")
  105.  (set #askzorro "\nSur quel type d'ordinateur CyberGraphX V3 est-il installé?\n")
  106.  (set #askcpu "\nQuel est le processeur de l'ordinateur sur lequel vous voulez mettre à jour CyberGraphX V3? L'installeur a trouvé :\n")
  107.  (set #wherelibs "Où sont installées les bibliothèques de CyberGraphX V3? Par défaut, c'est 'SYS:Libs'.")
  108.  (set #whatboard (cat "\nVeuillez sélectionner la carte graphique dont vous voulez mettre le fichier moniteur à jour :\n"))
  109.  (set #todo-prompt "\nDésirez-vous installer :\n")
  110.  (set #cgxmode-todo " CGXMode - Créer et modifier les modes d'écran")
  111.  (set #wheremode "Où désirez-vous installer le programme CGXMode?")
  112.  (set #whereshowcgxconfig "Où désirez-vous installer le programme ShowCGXconfig?")
  113.  (set #showcgxconfig " ShowCGXconfig - Programme d'informations CyberGraphX")
  114. )
  115. )
  116.  
  117. ;********************************************************************************
  118. ; Start Update
  119. ;********************************************************************************
  120. ;(message #by)
  121. (message #nobackup)
  122.  
  123.  
  124. ;********************************************************************
  125. ; Double Check on the CPU
  126. ;********************************************************************
  127. (set cpu (database "cpu"))
  128. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  129. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  130. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  131. (if (= @installer-version 0)
  132.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  133.   (if (= cpu 68060) (set #cpu 1))
  134. )
  135. (if (> (exists ("libs:PPC.library")) 0) (set #cpu 2) )
  136.  
  137. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060" "PPC with 68040 or 68060")
  138.             (prompt #askcpu)
  139.                     (help   #askcpu)
  140.                   (default #cpu)
  141.       )
  142. )
  143.  
  144. (if (= cpuPick 0) ((set cpuadd ".020") (set cpuadd-1 ".020")) ) 
  145. (if (= cpuPick 1) ((set cpuadd ".040") (set cpuadd-1 ".040")) )
  146. (if (= cpuPick 2) ((set cpuadd ".040") (set cpuadd-1 ".ppc")) )
  147.  
  148. ;*******************************************************************
  149. ;  ASK where cybergfx libs are
  150. ;*******************************************************************
  151. (set wherelibs   (askdir (prompt #wherelibs)
  152.              (help   #wherelibs)
  153.                   (default "SYS:Libs")
  154.          )
  155. )
  156.  
  157. ;*******************************************************************
  158. ;  Copy libs if there
  159. ;*******************************************************************
  160. (if (exists (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd-1)) )
  161.   (copyfiles (source (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd-1))) (dest wherelibs) (newname "cgxsystem.library") (optional "nofail") ) 
  162. )
  163.  
  164. (if (exists (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd)) )
  165.   (copyfiles (source (tackon "cgxmpeglib" (cat "cgxmpeg.library" cpuadd))) (dest wherelibs) (newname "cgxmpeg.library") (optional "nofail") ) 
  166. )
  167.  
  168.  
  169. (if (AND (exists "cgxbootpiclib/cgxbootpic.library") (= 0 (exists "libs:cgxbootpic.library")) )
  170.   (copyfiles (source "cgxbootpiclib/cgxbootpic.library") (dest wherelibs) (optional "nofail") ) 
  171. )
  172.  
  173. ;*******************************************************************
  174. ;  ASK what board to update
  175. ;*******************************************************************
  176. (set BGuess 0) (set AGA 0)
  177.  
  178. (if (> (exists ("devs:monitors/CVision3D")) 0)  (set BGuess (+ BGuess 1)) )
  179. (if (> (exists ("devs:monitors/CVision64")) 0)  (set BGuess (+ BGuess 2)) )
  180. (if (> (exists ("devs:monitors/PicassoII")) 0)  (set BGuess (+ BGuess 4)) )
  181. (if (> (exists ("devs:monitors/Spectrum")) 0)   (set BGuess (+ BGuess 8)) )
  182. (if (> (exists ("devs:monitors/Piccolo")) 0)    (set BGuess (+ BGuess 16)) )
  183. (if (> (exists ("devs:monitors/PiccoSD64")) 0)  (set BGuess (+ BGuess 32)) )
  184. (if (> (exists ("devs:monitors/Inferno")) 0)    (set BGuess (+ BGuess 64)) )
  185. (if (> (exists ("devs:monitors/PicassoIV")) 0)  (set BGuess (+ BGuess 128)) )
  186. (if (> (exists ("devs:monitors/CGXAGA")) 0)     (set BGuess (+ BGuess 256)) )
  187. (if (> (exists ("devs:monitors/RetinaZ3")) 0)   (set BGuess (+ BGuess 512)) )
  188. (if (> (exists ("devs:monitors/A2410")) 0)      (set BGuess (+ BGuess 1024)) )
  189.  
  190.   (set board (askoptions (choices  " CyberVision64/3D" " CyberVision64" " PicassoII(+)" " Spectrum 28/24"
  191.                                    " Piccolo" " Piccolo SD64" " Inferno" " Picasso IV" " AGA (PPC Only)"
  192.                                    " Retina BLT Z3" " A2410"
  193.                           (prompt #whatboard)
  194.                       (help #whatboard)
  195.                           (default BGuess)
  196.                          )
  197.              )     
  198.   )
  199.  
  200.   (if (IN board 0)
  201.    (
  202.      (set error (run "tools/ChkCV3DZorro"))  ; 0 Z3, 5 Z2 
  203.      (if (= error 0) (set guessZ 1) (set guessZ 0) )
  204.   
  205.      (set pickZ (askchoice (choices "zorro2 - Amiga 2000/zorro2 Expansion Box" "zorro3 - Amiga 3000(T)/4000(T)")
  206.                        (prompt #askzorro)
  207.                        (help   #askzorro)
  208.                            (default guessZ)
  209.                 )
  210.      )
  211.   
  212.      (if (= pickZ 0) (set zadd ".Z2"))   (if (= pickZ 1) (set zadd ".Z3")) 
  213.  
  214.      (if (exists (tackon "S3Drivers" (cat "CVision3D" zadd)))
  215.       (if (= (exists (tackon "devs:monitors" "CVision3D.info")) 0)      
  216.        (copyfiles (source (tackon "S3Drivers" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (infos) (optional "nofail") ) 
  217.        (copyfiles (source (tackon "S3Drivers" (cat "CVision3D" zadd))) (dest "devs:monitors") (newname "CVision3D") (optional "nofail") ) 
  218.       )      
  219.      )
  220.  
  221.      (if (exists (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd)) )
  222.        (copyfiles (source (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd))) (dest wherelibs) (newname "cgxvideo.library") (optional "nofail") ) 
  223.      )
  224.  
  225.      (if (exists (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd)) )
  226.        (copyfiles (source (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" cpuadd))) (dest wherelibs) (newname "cgx3dvirgin.library") (optional "nofail") ) 
  227.      )
  228.  
  229.    )
  230.   )
  231.  
  232.  
  233.   (if (AND (exists (tackon "S3Drivers" "CVision64")) (IN board 1) )
  234.    (if (= (exists (tackon "devs:monitors" "CVision64.info")) 0)  
  235.     (copyfiles (source (tackon "S3Drivers" "CVision64")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  236.     (copyfiles (source (tackon "S3Drivers" "CVision64")) (dest "devs:monitors") (optional "nofail") ) 
  237.    )
  238.   )
  239.  
  240.   (if (AND (exists (tackon "CLDrivers" "PicassoII")) (IN board 2) )
  241.    (if (= (exists (tackon "devs:monitors" "PicassoII.info")) 0)  
  242.     (copyfiles (source (tackon "CLDrivers" "PicassoII")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  243.     (copyfiles (source (tackon "CLDrivers" "PicassoII")) (dest "devs:monitors") (optional "nofail") ) 
  244.    )
  245.   )
  246.  
  247.   (if (AND (exists (tackon "CLDrivers" "Spectrum")) (IN board 3) )
  248.    (if (= (exists (tackon "devs:monitors" "Spectrum.info")) 0)  
  249.     (copyfiles (source (tackon "CLDrivers" "Spectrum")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  250.     (copyfiles (source (tackon "CLDrivers" "Spectrum")) (dest "devs:monitors") (optional "nofail") ) 
  251.    )
  252.   )
  253.  
  254.   (if (AND (exists (tackon "CLDrivers" "Piccolo")) (IN board 4) )
  255.    (if (= (exists (tackon "devs:monitors" "Piccolo.info")) 0)  
  256.     (copyfiles (source (tackon "CLDrivers" "Piccolo")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  257.     (copyfiles (source (tackon "CLDrivers" "Piccolo")) (dest "devs:monitors") (optional "nofail") ) 
  258.    )
  259.   )
  260.  
  261.   (if (AND (exists (tackon "CLDrivers" "PiccoSD64")) (IN board 5) )
  262.    (if (= (exists (tackon "devs:monitors" "PiccoSD64.info")) 0)  
  263.     (copyfiles (source (tackon "CLDrivers" "PiccoSD64")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  264.     (copyfiles (source (tackon "CLDrivers" "PiccoSD64")) (dest "devs:monitors") (optional "nofail") ) 
  265.    )
  266.   )
  267.  
  268.   (if (AND (exists (tackon "CLDrivers" "Inferno")) (IN board 6) )
  269.    (if (= (exists (tackon "devs:monitors" "Inferno.info")) 0)  
  270.     (copyfiles (source (tackon "CLDrivers" "Inferno")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  271.     (copyfiles (source (tackon "CLDrivers" "Inferno")) (dest "devs:monitors") (optional "nofail") ) 
  272.    )
  273.   )
  274.  
  275.   (if (AND (exists (tackon "CLDrivers" "PicassoIV")) (IN board 7) )
  276.    (
  277.     (set error1 (run "tools/ChkPIVResource"))   ; 0 <2, 5 >=2
  278.     (if (< error1 5) (message #updatep4flash)) 
  279.      
  280.     (if (= (exists (tackon "devs:monitors" "PicassoIV.info")) 0)  
  281.      (copyfiles (source (tackon "CLDrivers" "PicassoIV")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  282.      (copyfiles (source (tackon "CLDrivers" "PicassoIV")) (dest "devs:monitors") (optional "nofail") ) 
  283.     )
  284.    )
  285.   )
  286.  
  287.   (if (AND (exists (tackon "AADrivers" "CGXAGA")) (IN board 8) )
  288.    (if (= (exists (tackon "devs:monitors" "CGXAGA.info")) 0)  
  289.     (copyfiles (source (tackon "AADrivers" "CGXAGA")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  290.     (copyfiles (source (tackon "AADrivers" "CGXAGA")) (dest "devs:monitors") (optional "nofail") ) 
  291.    )
  292.   )
  293.   (if (IN board 8) (set AGA 1) (set AGA 0)) ; AGA TRUE
  294.  
  295.   (if (AND (exists (tackon "SLDrivers" "RetinaZ3")) (IN board 9) )
  296.    (if (= (exists (tackon "devs:monitors" "RetinaZ3.info")) 0)  
  297.     (copyfiles (source (tackon "SLDrivers" "RetinaZ3")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  298.     (copyfiles (source (tackon "SLDrivers" "RetinaZ3")) (dest "devs:monitors") (optional "nofail") ) 
  299.    )
  300.   )
  301.  
  302.   (if (AND (exists (tackon "TIDrivers" "A2410")) (IN board 10) )
  303.    (if (= (exists (tackon "devs:monitors" "A2410.info")) 0)  
  304.     (copyfiles (source (tackon "TIDrivers" "A2410")) (dest "devs:monitors") (infos) (optional "nofail") ) 
  305.     (copyfiles (source (tackon "TIDrivers" "A2410")) (dest "devs:monitors") (optional "nofail") ) 
  306.    )
  307.   )
  308.  
  309.  
  310. ;*********************************************************************************
  311. ;* Ask user to install CGXMode 
  312. ;*********************************************************************************
  313. (set toolpick 3)
  314.  
  315. (if (OR (IN board 8) (IN board 10)) ;**Check&Msg for non CGXMode Drivers.
  316.  ( 
  317.   (message #nocgxmode)
  318.   (set toolpick 2)
  319.  )
  320. )
  321.  
  322. (set ToDo (askoptions (choices #cgxmode-todo #showcgxconfig)
  323.                       (prompt #todo-prompt)
  324.                       (help #todo-prompt)
  325.                       (default toolpick)
  326.           )
  327. ) 
  328.  
  329. (if (IN ToDo 0) 
  330.   ( 
  331.     (set wheremode   (askdir (prompt #wheremode)
  332.                              (help   #wheremode)
  333.                          (default "SYS:Prefs")
  334.              )
  335.     )
  336.  
  337.     (if (exists "CGXMode/CGXMode")
  338.      (if (= (exists (tackon wheremode "CGXMode.info")) 0)
  339.       (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (infos) (optional "nofail")) 
  340.       (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (optional "nofail"))          
  341.      )
  342.     )
  343.  
  344.     (if (IN board 10) (set TTBOARD "A2410") ) 
  345.     (if (IN board 9)  (set TTBOARD "RetinaZ3") ) 
  346.     ;(if (IN board 8) (set TTBOARD "CGXAGA") ) 
  347.     (if (IN board 7)  (set TTBOARD "PicassoIV") ) 
  348.     (if (IN board 6)  (set TTBOARD "Inferno") ) 
  349.     (if (IN board 5)  (set TTBOARD "PiccoSD64") ) 
  350.     (if (IN board 4)  (set TTBOARD "Piccolo") ) 
  351.     (if (IN board 3)  (set TTBOARD "Spectrum") ) 
  352.     (if (IN board 2)  (set TTBOARD "PicassoII") ) 
  353.     (if (IN board 1)  (set TTBOARD "CVision64") )    
  354.     (if (IN board 0)  (set TTBOARD "CVision3D") ) 
  355.  
  356.     (if (> board 0)
  357.       (tooltype    (dest (tackon wheremode "CGXMode")) (settooltype "BOARD" TTBOARD) ) 
  358.     )
  359.  
  360.     (if (= @language "deutsch")
  361.      (
  362.        (if (= (exists "Locale:Catalogs") 0) (makedir "sys:Locale/Catalogs") )
  363.        (if (= (exists (tackon "Locale:Catalogs" "deutsch")) 0) (makedir (tackon "sys:Locale/Catalogs" "deutsch")) )
  364.        (if (exists "CGXMode/catalogs/deutsch/cgxmode.catalog")
  365.          (copyfiles (source "CGXMode/catalogs/deutsch/cgxmode.catalog") (dest "sys:Locale/Catalogs/deutsch") )
  366.        )
  367.      )
  368.     )
  369.  
  370.   )
  371. )
  372.  
  373.  
  374. (if (IN ToDo 1) 
  375.   ( 
  376.     (set whereshowcgxconfig   (askdir (prompt #whereshowcgxconfig)
  377.                              (help   #whereshowcgxconfig)
  378.                          (default "SYS:Tools")
  379.              )
  380.     )
  381.  
  382.     (if (exists "tools/showcgxconfig")
  383.      (if (= (exists (tackon whereshowcgxconfig "CGXMode.info")) 0)
  384.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (infos) (optional "nofail")) 
  385.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (optional "nofail"))          
  386.      )
  387.     )
  388.  
  389.   )
  390. )
  391.  
  392.  
  393.  
  394.  
  395.  
  396. ;*******************************************************************
  397. ;  END
  398. ;*******************************************************************
  399. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  400. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  401.  
  402. (run (cat "run " #mpath "/multiview Changes.txt") )
  403.  
  404. (set @default-dest "sys:")
  405.  
  406. (set #done "Update Complete!")
  407. (if (= @language "deutsch") (set #done "Update fertig!") )
  408.  
  409. (exit #done)
  410.